home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 52 / Digital_Talk_52_2001-12-15_Digital_Talk_de_Side_A.d64 / monitor 64 _db (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  155 lines
  1. 10 :rem================================
  2. 11 :rem                               "
  3. 12 :[143]    speicher monitor           "
  4. 13 :rem                               "
  5. 14 :[143]================================
  6. 16 :
  7. 17 :
  8. 18 :
  9. 19 :[137]1000:[171][171][171][171]start prg
  10. 20 :[148]"@0:_tanmonitor 64",8:[142]:
  11. 21 :
  12. 22 :
  13. 120 ca[178]41960:[143]----block move1(a,e,n)
  14. 122 h[178]256:b[178]e[171]a:c[178][181](b[173]h)[172]h:e[178]a[170]c:n[178]n[170]c:a%[178]e[173]h:[151]90,e[171]a%[172]h:[151]91,a%:a%[178]n[173]h
  15. 123 [151]88,n[171]a%[172]h:[151]89,a%:[151]781,c[173]h[170]1:[151]782,(b[171]c[170]1)[175]255:[158]ca[170]4:[142]
  16. 124 :
  17. 125 :a[178]41960:e[178]a[170]19:[141]120:[142]:[171][171][171]inst:
  18. 128 :
  19. 129 :
  20. 130 :[143]--- zeichen-copy(53248-57343):
  21. 131 :[151]56334,.:[151]1,51:[141]120:[151]1,55:[151]56334,1:[142]:
  22. 133 :
  23. 135 :
  24. 600 :[143]--- block-load(a$,a)
  25. 601 :h[178]256:[158](57812)a$,8,0:[151]780,0:a%[178]a[173]h:[151]782,a%:[151]781,a[171]a%[172]h:
  26. 602 :[158]62622:[142]
  27. 604 :
  28. 605 :::[158]5781[177](a$),8,1:[151]780,0:[158]65493:[142]:[143]  an startadresse laden
  29. 607 :
  30. 608 :
  31. 609 :
  32. 650 :[143]--- block-save(a$,a,e)
  33. 651 :h[178]256:[158](57812)"@:"[170]a$,8:a%[178]a[173]h:[151]194,a%:[151]193,a[171]a%[172]h
  34. 652 :a%[178]e[173]h:[151]175,a%:[151]174,e[171]a%[172]h:[158]62957:[142]
  35. 654 :
  36. 655 :
  37. 810 :[143]---inst. ram-sprung user     (zum lesen des ram/prg-aufruf)
  38. 811 :rs$[178]"left$%waitaewaitbfre)wait0ewaitanot pc%waitbewaita(NULL)close":
  39. 812 :a%[178]rs[173]256:[151]209,rs[171]a%[172]256:[151]210,a%:[151]211,.:[153]rs$:l[178][194](211):
  40. 813 :
  41. 814 :co[178]48:[143]---vektor & config(us,co)
  42. 815 :[151]rs[170]7,co:a%[178]us[173]256:[151]rs[170]12,us[171]a%[172]256:[151]rs[170]13,a%:[142]:
  43. 816 :
  44. 817 :
  45. 818 :
  46. 819 :
  47. 900 :[143]----zeiln loeschen
  48. 901 :[151]241,7:[151]19,1:[153]""[166]200)[166]200)[166]200)[166]200)[166]80);
  49. 902 :[151]213,40:[153][166]40)"";
  50. 905 :[151]19,.:[151]241,135:[142]:
  51. 996 :
  52. 997 :
  53. 998 :
  54. 999 :
  55. 1000 :[143]==============================
  56. 1001 :[143]
  57. 1002 :[143]     vorbereitungen
  58. 1003 :[143]
  59. 1004 :[143]==============================
  60. 1005 :
  61. 1006 :v0[178]824:[143]----install
  62. 1201 :n[178]v0:[141]125:
  63. 1202 :us[178]v0:rs[178]v0[170]20:[141]810:
  64. 1210 :ca[178]rs[171]4:co[178]55:[141]815:
  65. 1215 :
  66. 1216 :
  67. 1220 :bs[178][194](648)[172]256:
  68. 1221 :ba[178]bs[170]2[172]40:bm[178]bs[170]1000[171]ba:
  69. 1225 :bl[178]1024:a1[178]0[172]bl
  70. 1226 :[150][165]p(a)[178][194](a)[170][194](a[170]1)[172]256
  71. 1227 :
  72. 1229 :
  73. 1230 :
  74. 1500 :[143]----anzeige-text
  75. 1510 :[153]"load (NULL)(NULL)(NULL)right$(NULL)(NULL)(NULL) 64                             "
  76. 1511 :[153]"(NULL)rogramm zum atnnzeigen von"
  77. 1512 :[153]"(NULL)peicherbereichen im len64"
  78. 1513 :
  79. 1514 :[153]"(NULL)ollen : mit lenursor und asc5 bis asc8"
  80. 1515 :[153]"peekereich: (NULL)eigt den atnnzeigebereich"
  81. 1516 :[153]" ( left$ ) : (NULL)eigt ein left$ilfsmenue"
  82. 1517 :
  83. 1550 :[153]"(weiter)"
  84. 1551 :[151]214,23:[153]:[151]213,40:[153]"ascreeware-valdition - str$.peekreitinger (2001)  "
  85. 1600 :[151]198,0:[146]198,1:[161]a$
  86. 1997 :
  87. 1998 :
  88. 1999 :
  89. 2000 :[143]==============================
  90. 2001 :[143]
  91. 2002 :[143]     hauptprogramm
  92. 2003 :[143]
  93. 2004 :[143]==============================
  94. 2005 :
  95. 2006 :
  96. 2010 :a[178]6:[151]53280,a:[151]53281,a:[153]"load"
  97. 2020 :l$[178]"listwaitfrefreleft$=left$ilfefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefre"
  98. 2030 :
  99. 2050 :
  100. 2100 :a[178]a1:e[178]a[170]bm:
  101. 2105 :[151]19,1:[153]"(NULL)onfig:"co;[163]19)"peekereich:"a"cmd"[163]33)[171]e"cmd"[163]40)l$
  102. 2106 :[151]19,.
  103. 2120 :a[178]a1:e[178]a[170]bm:n[178]ba:[141]122:::[161]a$:[139]a$[178]""[137]2120
  104. 2201 :
  105. 2210 :[139]a$[178]"read"[176]a$[178]"let"[167]:a1[178][181](a1[173]bm)[172]bm[170]bm[172](1[170]2[172](a$[178]"read")):[137]2260
  106. 2211 :[139]a$[178]"if"[176]a$[178]"restore"[167]:a1[178][181](a1[173]bm)[172]bm[170]bm[172](1[170]2[172](a$[178]"if")):[137]2260
  107. 2215 :[139]a$[178]""[176]a$[178]"on"[167]:a1[178]a1[170]40[172](1[170]2[172](a$[178]"on")):[137]2260:
  108. 2216 :[139]a$[178]""[176]a$[178]"cmd"[167]:a1[178]a1[170]1[170]2[172](a$[178]"cmd"):[137]2260:
  109. 2220 :
  110. 2225 :
  111. 2226 :
  112. 2227 :
  113. 2231 :[139]a$[178]"input"[176]a$[178]""[167]:a1[178]0:[137]2100
  114. 2232 :[139]a$[178]"dim"[167]:a1[178]16[172]bl:[137]2100
  115. 2233 :[139]a$[178]"goto"[167]:a1[178]32[172]bl:[137]2100
  116. 2234 :[139]a$[178]"run"[167]:a1[178]48[172]bl:[137]2100
  117. 2235 :
  118. 2236 :[139]a$[178]"1"[167]:co[178]55:[141]815:
  119. 2237 :[139]a$[178]"2"[167]:co[178]51:[141]815:
  120. 2238 :[139]a$[178]"3"[167]:co[178]48:[141]815
  121. 2240 :[139]a$[178]"h"[176]a$[178][199](13)[176]a$[178]" "[167]:[141]2500
  122. 2250 :[145][171](a$[178]"\")[141]20:[151]198,0:[137]2100:
  123. 2251 :
  124. 2252 :
  125. 2253 :
  126. 2260 :[143]---- werte korektur
  127. 2261 :[139](a1[177][178]65535[171]bm)[167]:a1[178]65535[171]bm
  128. 2262 :a1[178]a1[172][171](a1[177].):[137]2100
  129. 2263 :
  130. 2264 :
  131. 2265 :
  132. 2500 :[143]---- hilfe:
  133. 2501 :
  134. 2504 :a(.)[178].:a(1)[178]bs:a(2)[178][165]p(43)[171]1:a(3)[178][165]p(643)[171]bm
  135. 2505 :a(4)[178]40960:a(5)[178]49152:a(6)[178]53248:a(7)[178]57344
  136. 2510 :[153]"";:[141]900:[153]"  (NULL)pruenge wait"[163]120);
  137. 2511 :[153]" ( 1 )  (NULL)prung  (NULL)eropage       (    0)  ";
  138. 2512 :[153]" ( 2 )          peekildschirm     ( 1024)  ";
  139. 2513 :[153]" ( 3 )          peekasic-atnnfang   ( 2048)  ";
  140. 2514 :[153]" ( 4 )          peekasic-valnde     (40040)  ";
  141. 2515 :[153]" ( 5 )          (NULL)om-peekasic      (40960)  ";
  142. 2516 :[153]" ( 6 )          oberes (NULL)am     (49152)  ";
  143. 2517 :[153]" ( 7 )          right$/(NULL)-(NULL)am/lenhar   (53248)  ";
  144. 2518 :[153]" ( 8 )          (NULL)om-(NULL)ernal     (57344)  ";
  145. 2519 :
  146. 2530 :[153]"  right$m (NULL)onitor"
  147. 2531 :[153]"on (len(NULL)(NULL)(NULL))   (NULL)or und (NULL)urueck (NULL)ollen"
  148. 2532 :[153]" (asc5-asc7)  peeklaettern "
  149. 2533 :[153]" (1-3)  (NULL)onfiguration einstellen"
  150. 2534 :[153]" 55=(NULL)ormal: 51=(NULL)om+lenhar: 48=(NULL)ur (NULL)am ";
  151. 2550 :[146]198,1:[161]a$:
  152. 2551 :[139]a$[177]"0"[175]a$[179]"9"[167]:a1[178]a([197](a$)[171]1):co[178]55:[141]815:[142]:
  153. 2560 :[142]:
  154. 9999 :::::prg schluss:::::
  155.